home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2002 #11 / Amiga Plus CD - 2002 - No. 11.iso / CD_System / HippoPlayer / ARexx / CopyList.hip < prev    next >
Text File  |  1997-07-08  |  1KB  |  49 lines
  1. /******************************************************/
  2. /*                                                    */
  3. /*   CopyList (C) Tomasz Kepa 8.VII.1997              */
  4. /*                        `                           */
  5. /*   $VER: V1.0                                       */
  6. /*                                                    */
  7. /*     This script allows copying the whole module    */
  8. /*             list to selected location.             */
  9. /*                                                    */
  10. /*               No docs this time!! =]               */
  11. /*                                                    */
  12. /*   The script is partially based on CopyFileReq     */
  13. /*     by Marcel Doering (ReqTools requester...)      */
  14. /*                                                    */
  15. /******************************************************/
  16.  
  17. /* call addlib('rexxreqtools.library', 0, -30, 0) */
  18.  
  19. options results
  20. address 'HIPPOPLAYER'
  21.  
  22. CURRENT=1
  23.  
  24.  
  25. get NFIL                 /* how many modules in list? */
  26. NO = result
  27.  
  28. if NO = 0 then
  29.     do
  30.         say 'Module list is empty. Nothing to copy :-)'
  31.         exit
  32.     end
  33. else
  34. do
  35.     DESTINATION = ''
  36.     /* DESTINATION = RTFileRequest(,, "Pick a directory", "Go_!", "rtfi_flags = freqf_nofiles") */
  37.     do while CURRENT <= NO
  38.         choose CURRENT
  39.  
  40.         get CNAM
  41.         NAME = result
  42.  
  43.         say 'Copying file "'NAME'"...'
  44.         address command 'Copy "'NAME'" TO "'DESTINATION'"'
  45.  
  46.         CURRENT = CURRENT + 1
  47.     end
  48. end
  49.